  integer ntag
  data ntag/z"1234567"/
  !-----------------------------------------------------------------------
